﻿Imports System.ComponentModel

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class ucDiplomaSuperTypeDetails
    Inherits UcBaseEditControl
    Implements IUcEditControl

#Region "Designer"
    'UserControl overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()
        
        ' Add any initialization after the InitializeComponent() call.
        
    End Sub


    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.DiplomaSuperTypeCodelbl = New System.Windows.Forms.Label()
        Me.DiplomaSuperTypeCode = New org.codegen.win.controls.CGTextBox(Me.components)
        Me.DiplomaSuperTypeNamelbl = New System.Windows.Forms.Label()
        Me.DiplomaSuperTypeName = New org.codegen.win.controls.CGTextBox(Me.components)
        Me.OpenToMembersOnlylbl = New System.Windows.Forms.Label()
        Me.OpenToMembersOnly = New org.codegen.win.controls.CGCheckBox(Me.components)
        CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'DiplomaSuperTypeCodelbl
        '
        Me.DiplomaSuperTypeCodelbl.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DiplomaSuperTypeCodelbl.Location = New System.Drawing.Point(5, 15)
        Me.DiplomaSuperTypeCodelbl.Name = "DiplomaSuperTypeCodelbl"
        Me.DiplomaSuperTypeCodelbl.Size = New System.Drawing.Size(120, 20)
        Me.DiplomaSuperTypeCodelbl.TabIndex = 0
        Me.DiplomaSuperTypeCodelbl.Text = "Code"
        Me.DiplomaSuperTypeCodelbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'DiplomaSuperTypeCode
        '
        Me.DiplomaSuperTypeCode.AssociatedLabel = Me.DiplomaSuperTypeCodelbl
        Me.DiplomaSuperTypeCode.BackColor = System.Drawing.Color.LightYellow
        Me.DiplomaSuperTypeCode.ErrProvider = Nothing
        Me.DiplomaSuperTypeCode.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DiplomaSuperTypeCode.FormatPattern = Nothing
        Me.DiplomaSuperTypeCode.isMandatory = True
        Me.DiplomaSuperTypeCode.Location = New System.Drawing.Point(135, 15)
        Me.DiplomaSuperTypeCode.MaxLength = 255
        Me.DiplomaSuperTypeCode.MaxValue = Nothing
        Me.DiplomaSuperTypeCode.MinValue = Nothing
        Me.DiplomaSuperTypeCode.Name = "DiplomaSuperTypeCode"
        Me.DiplomaSuperTypeCode.Size = New System.Drawing.Size(200, 21)
        Me.DiplomaSuperTypeCode.TabIndex = 0
        '
        'DiplomaSuperTypeNamelbl
        '
        Me.DiplomaSuperTypeNamelbl.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DiplomaSuperTypeNamelbl.Location = New System.Drawing.Point(5, 45)
        Me.DiplomaSuperTypeNamelbl.Name = "DiplomaSuperTypeNamelbl"
        Me.DiplomaSuperTypeNamelbl.Size = New System.Drawing.Size(120, 20)
        Me.DiplomaSuperTypeNamelbl.TabIndex = 1
        Me.DiplomaSuperTypeNamelbl.Text = "Type Name"
        Me.DiplomaSuperTypeNamelbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'DiplomaSuperTypeName
        '
        Me.DiplomaSuperTypeName.AssociatedLabel = Me.DiplomaSuperTypeNamelbl
        Me.DiplomaSuperTypeName.BackColor = System.Drawing.Color.LightYellow
        Me.DiplomaSuperTypeName.ErrProvider = Nothing
        Me.DiplomaSuperTypeName.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DiplomaSuperTypeName.FormatPattern = Nothing
        Me.DiplomaSuperTypeName.isMandatory = True
        Me.DiplomaSuperTypeName.Location = New System.Drawing.Point(135, 45)
        Me.DiplomaSuperTypeName.MaxLength = 255
        Me.DiplomaSuperTypeName.MaxValue = Nothing
        Me.DiplomaSuperTypeName.MinValue = Nothing
        Me.DiplomaSuperTypeName.Name = "DiplomaSuperTypeName"
        Me.DiplomaSuperTypeName.Size = New System.Drawing.Size(200, 21)
        Me.DiplomaSuperTypeName.TabIndex = 1
        '
        'OpenToMembersOnlylbl
        '
        Me.OpenToMembersOnlylbl.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.OpenToMembersOnlylbl.Location = New System.Drawing.Point(5, 74)
        Me.OpenToMembersOnlylbl.Name = "OpenToMembersOnlylbl"
        Me.OpenToMembersOnlylbl.Size = New System.Drawing.Size(120, 20)
        Me.OpenToMembersOnlylbl.TabIndex = 12
        Me.OpenToMembersOnlylbl.Text = "Members Only"
        Me.OpenToMembersOnlylbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'OpenToMembersOnly
        '
        Me.OpenToMembersOnly.AssociatedLabel = Me.OpenToMembersOnlylbl
        Me.OpenToMembersOnly.BackColor = System.Drawing.Color.Transparent
        Me.OpenToMembersOnly.ErrProvider = Nothing
        Me.OpenToMembersOnly.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.OpenToMembersOnly.intValue = 0
        Me.OpenToMembersOnly.isMandatory = True
        Me.OpenToMembersOnly.Location = New System.Drawing.Point(135, 74)
        Me.OpenToMembersOnly.MaxValue = Nothing
        Me.OpenToMembersOnly.MinValue = Nothing
        Me.OpenToMembersOnly.Name = "OpenToMembersOnly"
        Me.OpenToMembersOnly.ReadOnly = False
        Me.OpenToMembersOnly.Size = New System.Drawing.Size(17, 20)
        Me.OpenToMembersOnly.TabIndex = 11
        Me.OpenToMembersOnly.Text = "false"
        Me.OpenToMembersOnly.UseVisualStyleBackColor = False
        Me.OpenToMembersOnly.value = False
        '
        'ucDiplomaSuperTypeDetails
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.AutoValidate = System.Windows.Forms.AutoValidate.EnableAllowFocusChange
        Me.Controls.Add(Me.OpenToMembersOnlylbl)
        Me.Controls.Add(Me.OpenToMembersOnly)
        Me.Controls.Add(Me.DiplomaSuperTypeCodelbl)
        Me.Controls.Add(Me.DiplomaSuperTypeCode)
        Me.Controls.Add(Me.DiplomaSuperTypeNamelbl)
        Me.Controls.Add(Me.DiplomaSuperTypeName)
        Me.Name = "ucDiplomaSuperTypeDetails"
        Me.Size = New System.Drawing.Size(700, 359)
        CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

	
	
	Friend WithEvents DiplomaSuperTypeCodelbl As System.Windows.Forms.Label
	Friend WithEvents DiplomaSuperTypeCode As CGTextBox
	Friend WithEvents DiplomaSuperTypeNamelbl As System.Windows.Forms.Label
	Friend WithEvents DiplomaSuperTypeName As CGTextBox

    Friend WithEvents OpenToMembersOnlylbl As System.Windows.Forms.Label
    Friend WithEvents OpenToMembersOnly As org.codegen.win.controls.CGCheckBox
#End Region

#Region "Properties"
	
#End Region

#Region "Methods"
    
	''' <summary>
	''' Fills the controls on the screen from data in the object
	''' </summary>
	''' <remarks></remarks>
	Public Sub _loadData() Handles Me.evLoadObjectData


		Dim mo As DiplomaSuperType = DirectCast(Me.ModelObject(), DiplomaSuperType)
		Me.DiplomaSuperTypeCode.value = mo.DiplomaSuperTypeCode
		Me.DiplomaSuperTypeName.value = mo.DiplomaSuperTypeName

        Me.OpenToMembersOnly.Checked = mo.OpenToMembersOnly.GetValueOrDefault

	End Sub


	''' <summary>
	''' Loads the object from the database and then sets the proeperties 
	''' of the object from values on the controls
	''' </summary>
	''' <remarks></remarks>
	Public Sub _loadToObject() Handles Me.evLoadToObject

		Dim mo As DiplomaSuperType = DirectCast(Me.ModelObject, DiplomaSuperType)
		mo.setDiplomaSuperTypeCode(Me.DiplomaSuperTypeCode.text)
		mo.setDiplomaSuperTypeName(Me.DiplomaSuperTypeName.text)
        mo.OpenToMembersOnly = Me.OpenToMembersOnly.Checked

	End Sub

	Public Sub _InitializeControl() Handles Me.InitializeControl

		If Me.isInitialized = False Then
			'setup datasources here
			Me.isInitialized = True
		End If

	End Sub

#End Region

End Class
